home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-02
/
tpsqapi1.zip
/
$ZZAPTMP.ZIP
/
TESTADD.PAS
< prev
Wrap
Pascal/Delphi Source File
|
1992-02-13
|
354b
|
18 lines
uses strings,msgtosq,fidofmt;
var sqfile : string;
sdmfile : string;
newnum : word;
res : integer;
mrec : _fidomsgtype;
begin
write('enter SDM file : '); readln(sdmfile);
write('enter squish file : '); readln(sqfile);
res := SDMToSQD(sdmfile,sqfile,mrec,newnum,True);
writeln('result code = ',res);
end.